home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / l / lernen / vokabel / vorspann.gfa (.txt) < prev   
Encoding:
GFA-BASIC Atari  |  1996-11-17  |  2.1 KB  |  70 lines
  1. COLOR 1
  2. abw%=0
  3. FOR i%=1 TO 21
  4.   FOR y%=20 TO 400 STEP 40
  5.     LINE 0,y%-abw%,640,y%-abw%
  6.     LINE 0,y%+abw%,640,y%+abw%
  7.   NEXT y%
  8.   PAUSE 3
  9.   INC abw%
  10. NEXT i%
  11. DEFFILL 2,2,2
  12. PELLIPSE 27,22,25,20
  13. GET 0,0,54,44,ei$
  14. DEFFILL 1,1,1
  15. PBOX 0,0,640,400
  16. DEFTEXT 1,0,0,20
  17. vorsp(640,360,0,"Idee:",3,50,50,320,150)
  18. PAUSE 20
  19. vorsp(0,350,0,"Thorsten Liese",1,160,200,320,150)
  20. PAUSE 50
  21. vorsp(0,0,1,"Programmiert von:",3,120,50,330,150)
  22. PAUSE 20
  23. vorsp(640,350,0,"Thorsten Liese",1,50,200,350,150)
  24. PAUSE 50
  25. vorsp(0,0,1,"Grafiken:",3,120,50,330,150)
  26. PAUSE 20
  27. vorsp(0,350,0,"Thorsten Liese",1,100,200,350,150)
  28. PAUSE 50
  29. vorsp(640,0,1,"Gestaltung:",3,50,50,350,150)
  30. PAUSE 20
  31. vorsp(0,350,0,"Thorsten Liese",1,100,200,350,150)
  32. PAUSE 50
  33. SPOKE &H484,PEEK(&H484) OR 1
  34. CHAIN "VOKUS.GFA"
  35. '
  36. PROCEDURE vorsp(xstart%,ystart%,fl!,text$,tc%,zbx%,zby%,zbw%,zbh%)
  37.   IF fl!
  38.     DEFFILL 1,1,1
  39.     PBOX 0,0,640,400
  40.   ENDIF
  41.   LOCAL xw%,yw%,x%,y#,yg#,zz1%,zz2%
  42.   zz1%=RANDOM(zbw%)+zbx%
  43.   zz2%=RANDOM(zbh%)+zby%
  44.   xw%=zz1%-xstart%
  45.   yw%=zz2%-ystart%
  46.   x%=xstart%
  47.   yg#=yw%/ABS(xw%)
  48.   y#=ystart%
  49.   FOR i#=1 TO ABS(xw%) STEP 2
  50.     y#=y#+yg#
  51.     IF xstart%>zz1%
  52.       x%=x%-2
  53.     ELSE
  54.       x%=x%+2
  55.     ENDIF
  56.     PUT x%,INT(y#),ei$
  57.     IF LEN(INKEY$)
  58.       SPOKE &H484,PEEK(&H484) OR 1
  59.       CHAIN "VOKUS.GFA"
  60.     ENDIF
  61.   NEXT i#
  62.   GRAPHMODE 1
  63.   DEFFILL 1,1,1
  64.   PBOX x%,INT(y#),x%+54,INT(y#)+44
  65.   GRAPHMODE 3
  66.   DEFTEXT 1,tc%,0,20
  67.   TEXT x%-30,INT(y#)+20,text$
  68.   GRAPHMODE 1
  69. RETURN
  70.